home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKRCE.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  1.6 KB  |  78 lines
  1. SBP
  2.   ╜   STKRCE
  3.   ╜   Cash Audit report
  4.   ╜   Last updated Jan 21, 90
  5.  
  6.   │ _ wrerror
  7.   ┤ Ö"cash"
  8.  hd1$ "Cash Audit report at "  ( Q,"mmm dd,yy")
  9.  hd12$ "Ref: STKRCE"
  10.  
  11. m1: 
  12.   ┴Signed_Amt.CASH
  13.   } ┴
  14.  
  15.   {@64;"============"
  16.   {@1;"Net Cash Received:";@67;&12 lSigned_Amt.CASH
  17.   {@64;"============"
  18.   Æ ┴
  19.  
  20.   ƒ
  21.   {@1;"Cash Audit Report at";@22;&15 ( Q,"mmm dd,yy");@65;"Ref: STKRC"
  22.   {
  23.   {@1;"Date        Ref  Client   Name                     Cash ref          Amount "
  24.   {@1;"----------- ---- -------- ------------------------ ------------ -----------"
  25.   Æ ƒ
  26.  
  27.   ₧Batch_ref.CASH,Signed_Amt.CASH
  28.   Ç ₧Batch_ref.CASH
  29.   {@1;"Batch reference:";@18;&6Batch_ref.CASH;@27;"Date:";@33;&10Batch_date.CASH;@45;"Type:";@51;&8Trans_Desc.CASH
  30.   Æ ₧
  31.  
  32.   } ₧Batch_ref.CASH
  33.   {@64;"============"
  34.   {@1;"Batch total:";@67;&12 lSigned_Amt.CASH
  35.   {
  36.   Æ ₧
  37.  
  38.   ╔@1;&10Trans_date.CASH;@13;&5Trans_ref.CASH;@18;&8Client.CASH;@27;&24Client.CLIENTS;
  39.  @52;&12Cash_ref.CASH;@65;&11Signed_Amt.CASH
  40.   ╨Client.CASH Customer_Ref.CLIENTS  Printed_yn.CASH "n"
  41.   ╡Batch_ref.CASH
  42.  
  43. m2: 
  44.   íp$ "d" p
  45.  ╩ ╦ss14$
  46.  ╧ Ñ  ▀
  47.   Æ í
  48.  
  49. repeat: 
  50.  b% 0
  51.   ┬ms4$,"",130,a%
  52.   í(a% 0  p$ "p") p
  53.  ═Printed_yn.CASH "y" ╨Printed_yn.CASH "n"
  54.  Æ ═
  55.   ^
  56.  ┬ms3$,"",135,b%
  57.   Æ í
  58.   íb% 0 p wrexit
  59.   íp$ "p" p ╣;
  60.   wm1
  61.  
  62. rexit: 
  63.   ä"menu"
  64.  
  65. rerror: ╜ On error
  66.  res% 0
  67.   í & 11 p
  68.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  69.   ^ í & 27 p
  70.  ┬ms11$,ms12$,100,a%:res% 2
  71.   ^
  72.  ┬ (( &),"",113,a%:res% 1
  73.   Æ í
  74.   íres% 1 p yrepeat 
  75.   íres% 2 p yrexit
  76.   É
  77.  
  78.